From 29be86cff91eee9d21fc1667f7c5ee089a6bdcde Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Wed, 8 Nov 2006 00:12:52 +0000 Subject: [PATCH] (url-retrieve-synchronously): Allow quitting when inhibit-quit is t. --- lisp/url/url.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/url/url.el b/lisp/url/url.el index 6e4dfa089e7..a95c7e39c02 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -246,10 +246,16 @@ no further processing). URL is either a string or a parsed URL." ;; interrupt it before it got a chance to handle process input. ;; `sleep-for' was tried but it lead to other forms of ;; hanging. --Stef - (unless (or (accept-process-output proc) (null proc)) + (unless (or (with-local-quit + (accept-process-output proc)) + (null proc)) ;; accept-process-output returned nil, maybe because the process - ;; exited (and may have been replaced with another). - (setq proc (get-buffer-process asynch-buffer)))))) + ;; exited (and may have been replaced with another). If we got + ;; a quit, just stop. + (when quit-flag + (delete-process proc)) + (setq proc (and (not quit-flag) + (get-buffer-process asynch-buffer))))))) asynch-buffer))) (defun url-mm-callback (&rest ignored) -- 2.30.2